home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 #2 / Ham Radio 2000 - Volume 2.iso / HAMV2 / FAX_SSTV / VESTER_M / VWXH.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1995-10-18  |  3.7 KB  |  84 lines
  1. 10  CLEAR,32768:KEY OFF:CLS
  2. 15  GOTO 1020
  3. 20  X$="system":KEY 10,X$+CHR$(13):KEY 5,"LIST 1000-"+CHR$(13)
  4. 25  KEY 4,"SAVE"+CHR$(34)+"VWXH"
  5. 30  DEF SEG=&H4F00
  6. 40  BLOAD "vu640a.asm",&H100
  7. 41  IF VC=2 THEN POKE 408,16
  8. 49  PRINT:PRINT:PRINT:PRINT:PRINT:PRINT"                K3BC WEATHERFAX VIEWING (640 pixels/line)"
  9. 50  PRINT:PRINT"   This program is for viewing on a VGA (640x480) machine a picture that was"
  10. 60  PRINT"captured with the WXH program and has been SAVEd in either FULL or COMPRESSED"
  11. 70  PRINT"format. When a picture is selected using the cursor, it is initially"
  12. 110  PRINT"displayed in the GRAY colors. Hit 1, 2, 3, or 4 to get other color schemes."
  13. 120  PRINT"Palette 2 choice gives the Gray . Scrolling is done with the arrow keys,"
  14. 140  PRINT"and HOME removes the scrolling. Turn printer ON and hit P(rint) to print."
  15. 150  PRINT"Q(uit) exits the picture where you can hit F2 to reRUN or F10 to goto DOS."
  16. 160  PRINT"   Hit F5 twice to see the SYSTEM CONFIGURATION choices available for "
  17. 170  PRINT"possible modification."
  18. 180  FOR F=3728 TO 3775:READ G:POKE F,G:NEXT F
  19. 197  IF AU=1 THEN PA$=DF$:GOTO 210
  20. 199  PRINT:PRINT:PRINT:PRINT"    F5=SYS CONFIG         F10=DOS"
  21. 200  INPUT"   What Path or Directory is file in (Default=DF$)";PA$
  22. 201  IF PA$="" THEN PA$=DF$
  23. 202  IF PA$="system" THEN CLS: SYSTEM
  24. 203  IF PA$="LIST 1000-" THEN CLS:PRINT"    F5=SYS CONFIG   F2=ReRUN  F10=DOS":END
  25. 205  PRINT:INPUT"   Is the file in compressed form--y or n (Default=y)";Y$
  26. 210  IF Y$="" THEN Y$="y"
  27. 220  IF Y$="n" THEN GOTO 275
  28. 230  IF Y$="y" GOTO 250
  29. 240  GOTO 199
  30. 245  IF VC=2 THEN POKE 408,16
  31. 250  CLS:FILES PA$+"*.zip":GOSUB 400
  32. 252  SHELL "wxzip-v "+A$+" "+PA$:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
  33. 253  PRINT:INPUT"   Is the file (1)16 grays .VGA (2)64 grays .SVG or (3)Neither (Default=1)";Q
  34. 254  IF Q=0 THEN Q=1
  35. 255  IF Q>2 THEN CLS:PRINT"     F2=Another pix    F5=SYS CONFIG    F10=DOS":END
  36. 256  IF Q=2 THEN DEF SEG=&H4F00: BLOAD "vuwxa.asm",&H100:POKE &H142,BS
  37. 257  IF Q=1 THEN ZN$=".vga"
  38. 258  IF Q=2 THEN ZN$=".svg"
  39. 260  SHELL "wxunzp "+A$+" "+PA$+" "+ZN$
  40. 270  A$="pix.wx":GOTO 310
  41. 275  PRINT:INPUT"   Is the file (1)16 grays .VGA or (2) 64 grays .SVG (Default=1)";Q
  42. 276  IF Q=0 THEN Q=1
  43. 277  IF Q>2 THEN GOTO 275
  44. 278  IF Q=1 THEN CLS:FILES PA$+"*.vga":GOSUB 400
  45. 280  IF Q=2 THEN CLS:FILES PA$+"*.svg":GOSUB 400
  46. 290  IF A$="" THEN A$="pix.wx":GOTO 310
  47. 300  IF Q=1 THEN A$=PA$+A$+".vga"
  48. 305  IF Q=2 THEN A$=PA$+A$+".svg":DEF SEG=&H4F00:BLOAD "vuwxa.asm",&H100:POKE &H142,BS
  49. 310  DEF SEG=&H4F00:K=&H100:CALL K(A%,B%,A$)
  50. 320  PRINT:PRINT:PRINT:PRINT"         HIT F2 FOR ANOTHER PIX-----HIT F10 TO GOTO DOS"
  51. 330  END
  52. 340  'These data are for palette no.1. Each group of 3 is red, green, blue
  53. 350  'amplitudes. That is: 0,0,0=Black; 63,0,0=Bright Red; 63,63,63=White;etc.
  54. 360  'You can change them to form your own palette. Max. amplitude is 63.
  55. 365  '370-390 is one inactive palette (with apostrophes)--391-393 is active one
  56. 370  'DATA 0,0,0,0,31,0,0,47,0,0,63,0,31,63,0,63
  57. 380  'DATA 0,47,63,0,31,63,0,16,63,0,0,63,16,0,63,31
  58. 390  'DATA 0,63,47,0,63,63,0,47,63,0,31,63,0,63,63,63
  59. 391  DATA 63,0,0,4,4,4,8,8,8,11,11,11,14,14,14
  60. 392  DATA 17,17,17,20,20,20,24,24,24,29,29,29,32,32,32
  61. 393  DATA 36,36,36,40,40,40,45,45,45,50,50,50,56,56,56,63,63,63
  62. 400  PRINT"                        MOVE CURSOR TO FILE"
  63. 410  DEF SEG=&H6F00:BLOAD "pickfile.asm",&H100
  64. 420  K=&H100:CALL K
  65. 430  FOR Y=&H190 TO &H19C
  66. 440  Z=PEEK(Y)
  67. 450  IF Z=32 OR Z=46 THEN GOTO 480
  68. 460  Z$=CHR$(Z)
  69. 470  A$=A$+Z$:NEXT Y
  70. 480  PRINT A$
  71. 490  RETURN
  72. 1000   '                       SYSTEM CONFIGURATION
  73. 1010   '      xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
  74. 1020   VC=1      'Video Card--VC=1 VGA (640x480)--VC=2 EGA (640x350)
  75. 1030   AU=0      'AU=0 is No auto choices--AU=1 is automatic default choices
  76. 1035   BS=4      'Bankshift (from 0 to 6--ATI=0 and Diamond=4, etc.)
  77. 1040   DF$="c:\tv\"  'default PATH where most of pix files are stored
  78. 1100   GOTO 20
  79. 1115    '                 ------- INSTRUCTIONS -------
  80. 1120    ' To change the configuration, move cursor and type new choice and
  81. 1130    ' ENTER. Move the cursor in the clear and hit F5 to check change.
  82. 1140    ' To save the change, move cursor in the clear, hit F4, then type
  83. 1150    ' VWXH and ENTER. F2 will then reRUN the program or F10 goes to DOS.
  84.